From 701dabce64784e21c9167a9ba13408550ea5f076 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Mon, 3 Jun 2002 18:03:14 +0000 Subject: [PATCH] * buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 change. --- src/buffer.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/buffer.c b/src/buffer.c index 39d8d957a75..103715c80c8 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -3424,7 +3424,8 @@ fix_overlays_before (bp, prev, pos) Lisp_Object found = tail; /* Unlink the found overlay. */ - XSETCDR (parent, XCDR (found)); + tail = XCDR (found); + XSETCDR (parent, tail); /* Move an overlay at RIGHT_PLACE to the next of the found one, and link it into the right place. */ if (NILP (right_pair)) -- 2.30.2